home *** CD-ROM | disk | FTP | other *** search
/ Developer Helper 1: Phil & Dave's Excellent CD / Excellent CD HFS.raw / Moof / Goodies / MPW Goodies / MPW Goodies⁄DTS / SourceMenu < prev    next >
Text File  |  2022-08-05  |  1KB  |  58 lines
  1. #
  2. # Build the Source Menu (based on files in current directory)
  3. #
  4. Set Exit 0
  5.     DeleteMenu Source ∑ Dev:Null
  6.     Set CurDir "`Directory`"
  7.     If "`Exists Makefile ≥ Dev:Null`"
  8.         AddMenu Source "Makefile" 'Open "'"{CurDir}Makefile"'"' ∑ Dev:Null
  9.     End
  10.     If "`Exists ≈.≈make ≥ Dev:Null`"
  11.         For srcfile In ≈.≈make
  12.             AddMenu Source "{srcfile}" 'Open "'"{CurDir}{srcfile}"'"' ∑ Dev:Null
  13.         End
  14.     End
  15. #
  16.     If "`(Exists ≈.h) ≥ Dev:Null`"
  17.         AddMenu Source (- ' '
  18.         For srcfile In ≈.h
  19.             AddMenu Source "{srcfile}" 'Open "'"{CurDir}{srcfile}"'"' ∑ Dev:Null
  20.         End
  21.     End
  22. #
  23.     If "`(Exists ≈.cp) ≥ Dev:Null`"
  24.         AddMenu Source (- ' '
  25.         For srcfile In ≈.cp
  26.             AddMenu Source "{srcfile}" 'Open "'"{CurDir}{srcfile}"'"' ∑ Dev:Null
  27.         End
  28.     End
  29. #
  30.     If "`(Exists ≈.c) ≥ Dev:Null`"
  31.         AddMenu Source (- ' '
  32.         For srcfile In ≈.c
  33.             AddMenu Source "{srcfile}" 'Open "'"{CurDir}{srcfile}"'"' ∑ Dev:Null
  34.         End
  35.     End
  36. #
  37.     If "`(Exists ≈.p) ≥ Dev:Null`"
  38.         AddMenu Source (- ' '
  39.         For srcfile In ≈.p
  40.             AddMenu Source "{srcfile}" 'Open "'"{CurDir}{srcfile}"'"' ∑ Dev:Null
  41.         End
  42.     End
  43. #
  44.     If "`(Exists ≈.a) ≥ Dev:Null`"
  45.         AddMenu Source (- ' '
  46.         For srcfile In ≈.a
  47.             AddMenu Source "{srcfile}" 'Open "'"{CurDir}{srcfile}"'"' ∑ Dev:Null
  48.         End
  49.     End
  50. #
  51.     If "`(Exists ≈.r) ≥ Dev:Null`"
  52.         AddMenu Source (- ' '
  53.         For srcfile In ≈.r
  54.             AddMenu Source "{srcfile}" 'Open "'"{CurDir}{srcfile}"'"' ∑ Dev:Null
  55.         End
  56.     End
  57. Set Exit 1
  58.